home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 613 / access / ext.bat < prev    next >
DOS Batch File  |  1991-10-19  |  266b  |  13 lines
  1. set 2 !{length $1}
  2. while OK
  3.     set 2 !{- $2 1}
  4.     if !{< $2 0}
  5.         exit 3
  6.     set ch !{segment $1 $2 1}
  7.     if !{or !{or !{= $ch {.}} !{= $ch {\\}}} !{= $ch {:}}}
  8.         exit 3
  9. if !{= $ch {.}}
  10.     return !{segment $1 !{+ $2 1}}
  11. else
  12.     return {}
  13.